PostgreSQL for Hollywood

/****************************************************************

**                                                             **

** Name:        6_DBQuery                                      **

** Author:      Michael Suther                                 **

** Date:        07.04.19                                       **

** Interpreter: Hollywood 8.0                                  **

** Function:    Alle Einträge der Tabelle Kunden anzeigen      **

**                                                                   **

**                                                             **

****************************************************************/

@INCLUDE "PostgreSQL_Lib.hws"

Block        

       ;Netzwerkverbindung zum PostgreSQL-Server herstellen.

       Local ConnectionID = OpenConnection(Nil,"192.168.2.100",5432)

       ;Einige Variablen definieren

       Local Fail

       Local Errorcode

       Local fields

       Local Database$ = "postgres"

       Local Username$ = "test"

       Local Passwort$ = "test"

       Local Result = {}

       Local items, i, a

       ;Anmeldung

       Fail, ErrorCode = PG:OpenDatabase(Database$, Username$, Passwort$, ConnectionID)

       ; Auswerten der Rückgabewerte

       If Fail = False 

               NPrint("Verbindung wurde erfolgreich hergestellt.")

       Else

               NPrint("Die Verbindung ist fehlgeschlagen,")

               NPrint("Fehlercode:  ", ErrorCode)

       EndIf

       ;Alle Einträge der Tabelle Kunden anzeigen

       SQL$ = "SELECT * FROM Kunde"

       Fail, Errorcode, fields, Result = PG:DatabaseQuery(SQL$, ConnectionID)

       ; Auswerten der Rückgabewerte

       If Fail = False

               items = TableItems(Result)

               For i = 0 To items-1 Step fields

                       For a = 1 To fields

                               Print(Result[i + a-1], " ")

                       Next

                       NPrint("")

               Next                

       Else

               NPrint("Query fehlgeschlagen.")

               NPrint("Fehlercode:  ", ErrorCode)

       EndIf

       WaitLeftMouse

       ;Verbindung zur Datenbank schließen.

       PG:CloseDatabase(ConnectionID)

EndBlock